Tömb feltöltése véletlen számokkal,  majd egy bekért szám keresése a tömbben lineáris kereséssel, eljárások használatával (LinearisKereses.pas) program LinearisKereses; uses crt; var i,n,sz,t:integer;     a:array [1..50] of integer; procedure tombfeltoltes; begin    i:=1;    write('Hany darab szam legyen a tombben? ');    readln(n);    while (i<=n) do begin       a[i]:=trunc(90*random+1);       i:=i+1;       end;    i:=1;    while (i<=n) do begin       writeln('A tomb ',i,'. eleme: ',a[i]);       i:=i+1;       end;    end; procedure bekeres; Bekérjük a billentyűzetről a keresendő számot. begin    write('A keresett szam: ');    readln(sz);    end; BEGIN    clrscr;    tombfeltoltes;    bekeres;    t:=0; t = találatok száma, melyet kezdetben 0-ra állítunk    i:=1;    while (i<=n) do begin       if(a[i]=sz) then begin Végigmegyünk a tömb elemein és megvizsgáljuk, hogy a tömb aktuális eleme megegyezik e a keresett számmal. Ha igen, akkor a találatok számát növeljük, valamint kiírjuk a képernyőre, hogy melyik tömb elemnél van egyezés.          t:=t+1;          writeln('A talalat a tomb ',i,'. eleme');          end;       i:=i+1;       end;    writeln('A talalatok szama: ',t); END.